Cream of the Crop 26/Cream of the Crop 26.iso/doom/addons.zip/DRGNHOME.ZIP/DRGNHOME.REF

Text File | 1997-07-29 | 25KB | 1,124 lines

;Dragon's Den Housing     UNREGISTERED!!!!
;by Codax Dragon
;Hey I'm sorry to do this but I need the money.
;Contact me at [e-mail]
;My webpage is underconstruction but running at
;http://www.geocities.com/SiliconValley/Way/9982/index.html
;This IGM is NOT FINISHED!!!!  There will be an upgraded version soon
;The upgrade will include: Selling of houses and a couple more screens
;----------------------------------The Sign--------------------------
@#sign
@do moveback

@do saybar
  `2Welcome to Dragon's Den Housing.....
@closescript
@end
;---------------------------------Second Sign------------------------
@#sign2
@do moveback

@do Saybar
   `$N`2ow `$E`2ntering `$T`2he `$U`2pper `$E`2states
@closescript
@end
;---------------------------Codax's Bench----------------------
@#codaxbench
@do moveback
@do `p21 random 24 1

@if `p21 is 1 then saybar
`0Codax:  `2Dragon's Den BBS is the only 1 4 me!!!
@if `p21 is 2 then saybar
`0Codax:  `2When I get a house I'll be safe forever
@if `p21 is 3 then saybar
`0Codax:  `2Place your add here
@if `p21 is 4 then saybar
`0Codax:  `2Alms for a sysop....Come on buddy...Please....<sniff>
@if `p21 is 5 then saybar
`0Codax:  `2Show me the `$Money!!!!
@if `p21 is 6 then saybar
`0Codax:  `2I'm shameless when advertising for my BBS
@if `p21 is 7 then saybar
`0Codax:  `2Look out behind you!!!!!!haha tricked you!!
@if `p21 is 8 then saybar
`0Codax:  `2May the Dragons Protect Your Soul
@if `p21 is 9 then saybar
`0Codax:  `2I've got alot to say don't I?
@if `p21 is 10 then saybar
`0Codax:  `2No body knows the trouble I seen....
@if `p21 is 11 then saybar
`0Codax:  `2Make Love not `4`bWar
@if `p21 is 12 then saybar
`0Codax:  `2WHAT?!?!?! PHOENIX?!?!?  WHERE?!?!?!?
@if `p21 is 13 then saybar
`0Codax:  `2Have your people call my people...We'll do lunch
@if `p21 is 14 then saybar
`0Codax:  `2The roof...The roof...The roof is on FIRE!!!
@if `p21 is 15 then saybar
`0Codax:  `2Barak still lives with his mother
@if `p21 is 16 then saybar
`0Codax:  `2Have you found Power yet?
@if `p21 is 17 then saybar
`0Codax:  `2Seth spelled backwards is Htes
@if `p21 is 18 then saybar
`0Codax:  `2Seth Able can also be Ale Thebs
@if `p21 is 19 then saybar
`0Codax:  `2Stay Off My BENCH!!!!!!!
@if `p21 is 20 then saybar
`0Codax:  `2Do you have a newspaper?  It's rather cold today
@if `p21 is 21 then saybar
`0Codax:  `2All hail Emporor Gehstal...er..sorry wrong game
@if `p21 is 22 then saybar
`0Codax:  `2Thou art so........odd
@if `p21 is 23 then saybar
`0Codax:  `2Idea for a new game:  Koshi's Island 2
@if `p21 is 24 then saybar
`0Codax:  `2 Nothing is like the music of hundreds of voices screaming in unison!
@closescript
;---------------------------house 1-----------------------
@#House1
@do moveback
@offmap
@if castle71.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, and the asking price is `$$500`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 499 Buy that sucker.
<&money 500 Cuss 'cause you ain't got no cash
>&money 499 Find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle71.dat exist true then do
    @begin
    @show
`\`\  `2Dammit!  Someone bought the house you had your eye on.  There goes
  the honeymoon in paradise...better find someplace else.`\`\`k
    @do goto done
    @end

  @writefile castle71.dat
&playernum
NONE
    @do money - 500
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%G`day, landowner! `r0
`\`2  You now own this house!

`k  `0As a special bonus, one bed is included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle71.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   ;owner got deleted!!!  Lets put it up for sale again.
   @do delete castle71.dat
    @do addlog
  `%A great house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4You hang your head.

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What do you want with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Say something.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 12
@do y is 6
@do map is 1588
@loadmap 1588
@do goto done
@#done
;-------------------------------------HOuse 2----------------
@#house2
@do moveback
@offmap
@if castle72.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, and the asking price is `$$500`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 499 Buy it.
<&money 500 Cuss 'cause you ain't got no cash.
>&money 499 Find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle72.dat exist true then do
    @begin
    @show
`\`\  `2Oh crap!  Someone bought the house you wanted.  There goes
  that honey moon in paradise you had planned.`\`\`k
    @do goto done
    @end

  @writefile castle72.dat
&playernum
NONE
    @do money - 500
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%G`day, landowner! `r0
`\`2  Nice job!  You now own this house!

`k  `0As a special bonus, one bed is included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle72.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   ;owner got deleted!!!  Lets put it up for sale again.
   @do delete castle72.dat
    @do addlog
  `%A nice house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4You hang your head low.

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What business have you with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 38
@do y is 6
@do map is 1588
@loadmap 1588
@do goto done
@#done
;------------------------------------------House 3--------------
@#house3
@do moveback
@offmap
@if castle73.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, however.  The asking price is `$$500`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 499 Purchase it.
<&money 500 Cuss 'cause you ain't got the cash.
>&money 499 Try to find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle73.dat exist true then do
    @begin
    @show
`\`\  `2Dammit!  Someone bought the house you wanted.  There goes
  the honeymoon in paradise you had planed.`\`\`k
    @do goto done
    @end

  @writefile castle73.dat
&playernum
NONE
    @do money - 500
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%G'day, landowner! `r0
`\`2  Nice job!  You now own this house!

`k  `0As a special bonus, one bed is included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle73.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   @do delete castle73.dat
    @do addlog
  `%A nice house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4You hang your head.

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What business have you with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 23
@do y is 6
@do map is 1588
@loadmap 1588
@do goto done
@#done
;-----------------------------------------House 4----------------------
@#house4
@do moveback
@offmap
@if castle74.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, however.  The asking price is `$$800`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 799 Purchase it.
<&money 800 Cuss 'cause you don't have the cash.
>&money 799 Try to find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle74.dat exist true then do
    @begin
    @show
`\`\  `2Dammit!  Someone bought the house you wanted.  There goes
  that honeymoon in paradise you had planned.`\`\`k
    @do goto done
    @end

  @writefile castle74.dat
&playernum
NONE
    @do money - 800
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%G'day, landowner! `r0
`\`2  Nice job!  You now own this house!

`k  `0As a special bonus, one bed is included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle74.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   @do delete castle74.dat
    @do addlog
  `%A nice house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4You hang your head.

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What business have you with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 23
@do y is 14
@do map is 1588
@loadmap 1588
@do goto done
@#done
;-------------------------------------HOuse 5----------------------
@#house5
@do moveback
@offmap
@if castle75.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, however.  The asking price is `$$1500`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 1499 Buy it.
<&money 1500 Cuss 'cause you don't have the cash.
>&money 1499 Try to find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle75.dat exist true then do
    @begin
    @show
`\`\  `2Dammit!  Someone bought the house you wanted.  There goes
  that romantic honeymoon in paradise you planned.`\`\`k
    @do goto done
    @end

  @writefile castle75.dat
&playernum
NONE
    @do money - 1500
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%G'day, landowner! `r0
`\`2  Nice job!  You now own this house!

`k  `0As a special bonus, one bed is included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle75.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   @do delete castle75.dat
    @do addlog
  `%A nice house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4You hang your head.

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What business have you with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 71
@do y is 19
@do map is 1588
@loadmap 1588
@do goto done
@#done
;--------------------------------House 6--------------------
@#house6
@do moveback
@offmap
@if castle76.dat exist false then do
  @begin
  @show
`r0`c  `r1 `%For Sale `r0

   `2This is a nice house
  It is for sale, however.  The asking price is `$$5000`2.

@do `v01 is 1
@do write
`x`x
@choice
>&money 4999 "I'll take it."
<&money 5000 Cuss 'cause you don't have the cash.
>&money 4999 Find the 3 little pigs.
@

@if responce is 1 then do
  @begin
  @if castle76.dat exist true then do
    @begin
    @show
`\`\  `2Smegging Hell!  Someone bought the house you wanted.  There goes
 that romantice honeymoon in paradise you planned.`\`\`k
    @do goto done
    @end

  @writefile castle76.dat
&playernum
NONE
    @do money - 5000
    @do addlog
  `0`n `2buys `%A nice house`2!
     @routine seperate in gametxt.ref

  @show
`r0`c  `r1 `%Why hello there, landowner! `r0
`\`2  Nice job!  You now own this house!

`k  `0As a special bonus, 2 beds are included!

  `2Enjoy your new home.`\`\`k
  @end

@label done
@drawmap
@update
@closescript
  @end

@readfile castle76.dat
`p20
`s01
@

@do `p21 is deleted `p20

@if `p21 is 1 then do
  @begin
   ;owner got deleted!!!  Lets put it up for sale again.
   @do delete castle76.dat
    @do addlog
  `%A nice house`2 is put on the market today.
     @routine seperate in gametxt.ref

   ;run script again
   @do goto enter
  @end

@if `p20 not &playernum then do
  @begin
  @do `s02 is getname `p20
  @do upcase `s01
  @if `s01 is NONE then do
   @begin
   @show
`r0`c  `r1 None shall pass `r0

  `2You pound on the door for some time before you get an answer.

  `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
  voice calls from behind the wall.

  `4Ouch!

`k
   @do goto done
   @end

  @show
`r0`c  `r1 Stand and unfold thyself `r0

`2  A head pops out the door.  `0"Halt, you!  What business have you with
  my lord and master, `%`s02`0?" `2the maid asks.

@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
  @if response is 1 then do
   @begin
   @do write
`\`\  `2Say what? :`x
  @do readstring 40 NIL `s03
  @do upcase `s03
  @do upcase `s01

  @if `s03 is `s01 then do
    @begin
    @show
`\`\  `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
    @do goto letmein
    @end
   @writefile mail\mail`p20.dat
  `0House Reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 attempted to sweet talk the maid by saying
  `0"`s03"`2.  `2He was `bNOT`2 allowed in.

   @show
`\`\  `2The maid doesn't look too interested.`\`\`k
   @do goto done
   @end

  @do goto done

  @end

;let him in
@label letmein
@do x is 66
@do y is 14
@do map is 1588
@loadmap 1588
@do goto done
@#done
;------------------------------Home Office-----------------------------
@#homeoffice
@do moveback
@show
`r0`c  `r1 `%Talking to Darlatia `r0


    `2#$^@HYAS#%QQDFHSDGJE#&&ASG @#$^!SD #!G A    @#% ARR>Mlp;'
3788GSHS#$%^&sstSUI8356SG&@#!&* $%&@ $1!     !$^!$ %@ $Y$QG +ª≥b864
>σ_Θr▓+8í_    ╔ª_±C L   514 c_+Ih++w \%^&(.....

Do you understand?
@choice
Yes
No
Leave...she's scaring you.
@if responce is 1 then goto Dragontalk
@if responce is 3 then goto update
   @show

`2"My Appologies....I was unware you didn't know Dragon Tounge."

`$Fine...Just don't speak that shit to me again!!!


`2"She bows then says "I am @#$^#!#)(+V...err...you can call me Darlatia
I am second to `1C`3o`5d`7a`9x, `2the Leader of this village.  He would meet you himself
but he is a trifle busy right now...I can't seem to find him anywhere....
anyway would you like to hear the story behind this settlement?"


`$"Not really, Dragon" You say flatly


`2"Too bad you are going to hear it anyway.  Long ago there was a great
war bettween the Phoenixi..."


`$"You mean the Phoenixes!?!?!" You gasp in astonishment!!!


`2"It is pronounced Phoenixi actually" she corrects you "anyway `1C`3o`5d`7a`9x was
`2one of the warriors in the final battle of Phoel Hill.  Havn't you heard the
legend of the Purple Dragon!?!?!


`$"Is it anything like Ledgend Of the `4Red `2Dragon?" you say


`2"Were you born on a farm, s&boy,?!?  The Red dragon is `1C`3o`5d`7a`9x's
 `2father's cousin's son's daugter's roomate!"


`$"So how does that relate him to this `1C`3o`5d`7a`9x `2guy?"


`2"Never you mind.  `1C`3o`5d`7a`9x `2is the most powerfull of the Purple
Dragons.  But it seems he has retired and decided to make some cash.
Can't live on ledgends for ever ya know."

`$"Psshhh...yeah.....right"


`2"So he decided to build this town...He decided since the Dragon and Phoenix
war was over, Dragons were nearly extinct, and there were DragonHunters everywhere
He now takes the guize of a half-elf.


`$This is interesting and all but I need a house!


`2Just go in the one you want to buy.  C'ya.
@
@key
@pauseon
@drawmap
@update
;==============================Dragontalk=============================
@#Dragontalk
@show
`2awtb n1 64156 #$@%  !^!$  &@!!$  !@#$%^!  !@^!N "C3__εnM∙!>  L5T5n▀εC┼
WE4BQ23 N7 3 568E 234Q DFHDHW     13FGAG DARLATIA afoweij 908     23klh 7
wea aega84 faweifj asdi  asdfi  ;loiw ba
asdlfjk
kj

9+4a35yu*(_&
 (*&_*()79^*);hk

&^*&^&)_*( 90^)*(  *( *&&#$%%^& $%T&(%^&(  ^&*^  *&%*( *^*()^  &*^*(^ U%^&*(
)(h9p867%%$ úú547++≤t8"4i W2/

`2You relize you have no idea what she is saying and leave feeling like
an idiot.
@
@key
@pauseon
@drawmap
@update
;------------------------------Esperanto------------------------------
@#Esperanto
@do moveback
@do saybar
  `2ONLY IN `4`bREGISTERED VERSION

;-----------------------------Royal-----------------------------------
@#Royal
@do moveback
@do saybar
  `2ONLY IN `4`bRegistered Version
;--------------------------------Jasminita----------------------------
@#jasminita
@do moveback
@do saybar
  `2This is the cheapest castle...better ones in reged version!!!
@label letmein
@do x is 36
@do y is 18
@do map is 1082
@loadmap 1082
@do goto done
@#done
;-------------------------------Upadate Screen Routine--------------------
@#update
@key
@drawmap
@update
;------------------------------Mirror-------------------------------------
@#mirror
@do moveback
@do `p22 random 13 1

@if `p22 is 1 then saybar
`2"Mirror, Mirror on the wall which is greatest LORD of all?"
@if `p22 is 2 then saybar
`4`b<crack>
@if `p22 is 3 then saybar
`2Who's that s&man?  He's gorgous
@if `p22 is 4 then saybar
`2Hey baby!
@if `p22 is 5 then saybar
`2I can see myself from here
@if `p22 is 6 then saybar
`2i can't see a thing....gotta get this thing cleaned
@if `p22 is 7 then saybar
`0Geeves:  `2Stop looking in the mirror, s&sir, we have guests
@if `p22 is 8 then saybar
`2Are YOU talkN ta *ME*?  Are YOU TALKN TA ME?!?
@if `p22 is 9 then saybar
`2Hasta Lavista....Baby
@if `p22 is 10 then saybar
`2You flex you pecs and other muscles(or lack of)
@if `p22 is 11 then saybar
`[e-mail] send him mail on howto send money
@if `p22 is 12 then saybar
`2Now that you are at the mirror you reflect over today's events
@if `p22 is 13 then saybar
`2Got Milk
@closescript
;----------------------------Dog Tail--------------------------------
@#dogtail
@do `p20 random 3 1

@if `p20 is 1 then saybar
`4`bYIP!!!!!!!
@if `p20 is 2 then saybar
`2The dog moves his tail so you don't step on it
@if `p20 is 3 then saybar
`2The dog doesn't notice you crushed his tail
;------------------------------Dog Head------------------------------
@#doghead
@do moveback
@do saybar
`2<pant> <drool> <slober> <pant> <slurp> Arf!!!!
@closescript
;-----------------------------secret--------------------------------
@#secret
@do saybar
`2You look around and turn the secret knob.....
;-----------------------------master's chair------------------------
@#chair
@do saybar
`2You sit in your chair....mmmmmm...food smells good.....
@closescript
;----------------------------tubman---------------------------------
@#tubman
@do moveback
@do saybar
`2Hey man....Can't you see I'm doing something!!!
@closescript
;--------------------------deepend---------------------------------
@#deepend
@do saybar
`4`bCAUTION `2Shallow area ends here!!!!
@close script